home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / Lander.cpt / Lunar Lander / card_2879.txt < prev    next >
Text File  |  1989-07-03  |  6KB  |  235 lines
  1. -- card: 2879 from stack: in
  2. -- bmap block id: 3839
  3. -- flags: 0000
  4. -- background id: 3310
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put "Welcome to Lunar Lander.  Please click on one of the buttons" & " below to begin.  Click " & quote & "Instructions" & quote & " if you've never played before." into cd fld "info"
  9.   hide message
  10.   show menuBar
  11.   pass openCard
  12. end openCard
  13.  
  14.  
  15. -- part 7 (field)
  16. -- low flags: 01
  17. -- high flags: 2001
  18. -- rect: left=15 top=111 right=199 bottom=217
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 0 / 0
  21. -- text alignment: 0
  22. -- font id: 3
  23. -- text size: 12
  24. -- style flags: 8192
  25. -- line height: 16
  26. -- part name: Info
  27.  
  28.  
  29. -- part 9 (button)
  30. -- low flags: 80
  31. -- high flags: 8000
  32. -- rect: left=257 top=279 right=333 bottom=316
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 9479 / 9479
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: Lunar Lander
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   visual effect zoom open
  44.   go to stack "Lunar Lander"
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 12 (button)
  50. -- low flags: 00
  51. -- high flags: 8004
  52. -- rect: left=231 top=279 right=334 bottom=298
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 7591 / 7591
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Instructions
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   hide message
  64.   hide menuBar
  65.   visual effect scroll right
  66.   go last
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 8 (button)
  72. -- low flags: 00
  73. -- high flags: 8004
  74. -- rect: left=301 top=279 right=335 bottom=367
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 21837 / 21837
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: Install Button
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   answer "This will easily install a button in your home stack to launch " & "Lunar Lander.  Do you wish to install this button " & "in your home stack?" with "Cancel" or "Install"
  86.   if it is not "install" then exit mouseUp
  87.   set the cursor to watch
  88.   lock screen
  89.   show card button "Lunar Lander"
  90.   select card button "Lunar Lander"
  91.   doMenu "copy button"
  92.   hide card button "Lunar Lander"
  93.   go home
  94.   unlock screen
  95.   put the loc of message into locHolder
  96.   set the loc of message to 15,10
  97.   put "Move the button to the desired location and click"
  98.   set the cursor to none
  99.   doMenu "Paste button"
  100.   repeat while the mouse is not "down"
  101.     set the loc of card button "Lunar Lander" to the mouseLoc
  102.   end repeat
  103.   choose browse tool
  104.   put ""
  105.   hide message
  106.   set the loc of message to locHolder
  107.   send mouseUp to card button "Lunar Lander"
  108. end mouseUp
  109.  
  110.  
  111. -- part 6 (button)
  112. -- low flags: 00
  113. -- high flags: 8004
  114. -- rect: left=161 top=279 right=334 bottom=228
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 23961 / 23961
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Start
  123. ----- HyperTalk script -----
  124. on mouseUp
  125.   global groundY
  126.   put return & "Please stand by:" & return & "Now creating lunar landscape..." into cd fld "info"
  127.   set the cursor to busy
  128.   hide menuBar
  129.   lock screen
  130.   set the cantmodify of this stack to false
  131.   set the userlevel to 5
  132.   set the cursor to busy
  133.   go next
  134.   set the cursor to busy
  135.   choose select tool
  136.   doMenu "Select All"
  137.   doMenu "Clear Picture"
  138.   put 270 into groundY
  139.   set the cursor to busy
  140.   put false into pad
  141.   choose line tool
  142.   set lineSize to 1
  143.   set pattern to 12
  144.   put 1 into count
  145.   repeat
  146.     set the cursor to busy
  147.     add 1 to count
  148.     if count > 53 then exit repeat
  149.     put item count - 1 of groundY into item count of groundY
  150.     add the random of 30 - 15 to item count of groundY
  151.     if item count of groundY > 340 then put 340 into item count of groundY
  152.     drag from 10 * (count - 2), item count - 1 of groundY to 10 * (count - 1),item count of groundY
  153.     if count > 30 and the random of 3 = 1 and pad is not true then
  154.       set the visible of cd btn "pad" to true
  155.       set the hilite of cd btn "pad" to true
  156.       repeat with loop = 1 to 4
  157.         put item count of groundY into item count + loop of groundY
  158.       end repeat
  159.       drag from 10 * (count - 1),item count of groundY to 10 * (count + 3),item count of groundY
  160.       set the loc of cd btn "pad" to 10 * count + 10, item count of groundY + 1
  161.       add 4 to count
  162.       put true into pad
  163.     end if
  164.   end repeat
  165.   set the cursor to watch
  166.   choose bucket tool
  167.   click at 1,340
  168.   doMenu "Select All"
  169.   doMenu "Darken"
  170.   choose bucket tool
  171.   set the pattern to 5
  172.   click at 1,340
  173.   doMenu "Select All"
  174.   doMenu "Invert"
  175.   doMenu "background"
  176.   doMenu "select"
  177.   doMenu "copy picture"
  178.   doMenu "background"
  179.   doMenu "paste picture"
  180.   drag from 470,110 to 470 - the random of 400,110
  181.   choose browse tool
  182.   show cd btn "module"
  183.   set the icon of cd btn "module" to "module 0"
  184.   set the rect of cd btn "module" to 13,8,47,53
  185.   hide cd btn "flag"
  186.   put "Computed landing area now flashing on lunar surface" into cd fld "message"
  187.   unlock screen with visual effect dissolve
  188.   send startPlay to card
  189. end mouseUp
  190.  
  191.  
  192.  
  193. -- part 11 (button)
  194. -- low flags: 00
  195. -- high flags: 8004
  196. -- rect: left=439 top=279 right=334 bottom=506
  197. -- title width / last selected line: 0
  198. -- icon id / first selected line: 1199 / 1199
  199. -- text alignment: 1
  200. -- font id: 0
  201. -- text size: 12
  202. -- style flags: 0
  203. -- line height: 16
  204. -- part name: Home
  205. ----- HyperTalk script -----
  206. on mouseUp
  207.   visual effect iris close
  208.   go home
  209. end mouseUp
  210.  
  211.  
  212. -- part 14 (button)
  213. -- low flags: 00
  214. -- high flags: 8004
  215. -- rect: left=370 top=279 right=335 bottom=436
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 1006 / 1006
  218. -- text alignment: 1
  219. -- font id: 0
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: Mac Info
  224. ----- HyperTalk script -----
  225. on mouseUp
  226.   hide message
  227.   hide menubar
  228.   visual effect scroll down
  229.   go to card "macs"
  230. end mouseUp
  231.  
  232.  
  233. -- part contents for card part 7
  234. ----- text -----
  235. Welcome to Lunar Lander.  Please click on one of the buttons below to begin.  Click "Instructions" if you've never played before.